#! /usr/bin/perl

use diagnostics;
use strict;

my $localfolder = './compressed/rar';
my $package     = './compressed/rar/a.rar';
my @result      = `unrar vb $package;`;
my @extractedfiles;
foreach my $extracted (@result) {
	chomp($extracted);
	push( @extractedfiles, $localfolder . "/" . $extracted );
}
my $ok = system("unrar x -y -inul $package $localfolder");
print "$ok\n";
